home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Hyper / T / Ted's™ HelpCreator 1.1.sit / Ted's™ Help Creator 1.1 / Ted's™ Help Creator 1.1 / cards.xml < prev    next >
Encoding:
Text File  |  1992-03-30  |  22.5 KB  |  338 lines
  1. card_4223.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>4223</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_4538.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2939</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_3185.css" />
  13.     <part>
  14.         <id>1</id>
  15.         <type>field</type>
  16.         <visible> <true /> </visible>
  17.         <dontWrap> <false /> </dontWrap>
  18.         <dontSearch> <false /> </dontSearch>
  19.         <sharedText> <false /> </sharedText>
  20.         <fixedLineHeight> <false /> </fixedLineHeight>
  21.         <autoTab> <false /> </autoTab>
  22.         <lockText> <true /> </lockText>
  23.         <rect>
  24.             <left>14</left>
  25.             <top>71</top>
  26.             <right>498</right>
  27.             <bottom>307</bottom>
  28.         </rect>
  29.         <style>scrolling</style>
  30.         <autoSelect> <false /> </autoSelect>
  31.         <showLines> <false /> </showLines>
  32.         <wideMargins> <true /> </wideMargins>
  33.         <multipleLines> <false /> </multipleLines>
  34.         <reservedFamily> 0 </reservedFamily>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>left</textAlign>
  38.         <font>Geneva</font>
  39.         <textSize>12</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <textHeight>16</textHeight>
  42.         <name></name>
  43.         <script>on mouseupif the mouseloc is within rect of me thenif the clicktext contains "Me" thenshow card field "CallScript"else if the clicktext contains "here" thenshow card field "StackScript"set the scroll of card field "StackScript" to 0elsevisual effect wipe leftgo nextend ifelseselect emptyend ifend mouseup</script>
  44.     </part>
  45.     <part>
  46.         <id>2</id>
  47.         <type>field</type>
  48.         <visible> <false /> </visible>
  49.         <dontWrap> <false /> </dontWrap>
  50.         <dontSearch> <false /> </dontSearch>
  51.         <sharedText> <false /> </sharedText>
  52.         <fixedLineHeight> <false /> </fixedLineHeight>
  53.         <autoTab> <false /> </autoTab>
  54.         <lockText> <true /> </lockText>
  55.         <rect>
  56.             <left>63</left>
  57.             <top>90</top>
  58.             <right>381</right>
  59.             <bottom>252</bottom>
  60.         </rect>
  61.         <style>shadow</style>
  62.         <autoSelect> <false /> </autoSelect>
  63.         <showLines> <false /> </showLines>
  64.         <wideMargins> <true /> </wideMargins>
  65.         <multipleLines> <false /> </multipleLines>
  66.         <reservedFamily> 0 </reservedFamily>
  67.         <titleWidth>0</titleWidth>
  68.         <icon>0</icon>
  69.         <textAlign>left</textAlign>
  70.         <font>Geneva</font>
  71.         <textSize>12</textSize>
  72.         <textStyle>plain</textStyle>
  73.         <textHeight>16</textHeight>
  74.         <name>CallScript</name>
  75.         <script>on Mouseupif the mouseloc is within rect of me thenvisual effect dissolvehide meend ifend Mouseup</script>
  76.     </part>
  77.     <part>
  78.         <id>3</id>
  79.         <type>field</type>
  80.         <visible> <false /> </visible>
  81.         <dontWrap> <false /> </dontWrap>
  82.         <dontSearch> <false /> </dontSearch>
  83.         <sharedText> <false /> </sharedText>
  84.         <fixedLineHeight> <false /> </fixedLineHeight>
  85.         <autoTab> <false /> </autoTab>
  86.         <lockText> <true /> </lockText>
  87.         <rect>
  88.             <left>37</left>
  89.             <top>81</top>
  90.             <right>461</right>
  91.             <bottom>268</bottom>
  92.         </rect>
  93.         <style>scrolling</style>
  94.         <autoSelect> <false /> </autoSelect>
  95.         <showLines> <false /> </showLines>
  96.         <wideMargins> <true /> </wideMargins>
  97.         <multipleLines> <false /> </multipleLines>
  98.         <reservedFamily> 0 </reservedFamily>
  99.         <titleWidth>0</titleWidth>
  100.         <icon>0</icon>
  101.         <textAlign>left</textAlign>
  102.         <font>Geneva</font>
  103.         <textSize>12</textSize>
  104.         <textStyle>plain</textStyle>
  105.         <textHeight>16</textHeight>
  106.         <name>StackScript</name>
  107.         <script>on Mouseupif the mouseloc is within rect of me thenhide meend ifend Mouseup</script>
  108.     </part>
  109.     <part>
  110.         <id>4</id>
  111.         <type>button</type>
  112.         <visible> <true /> </visible>
  113.         <reserved5> 0 </reserved5>
  114.         <reserved4> 0 </reserved4>
  115.         <reserved3> 0 </reserved3>
  116.         <reserved2> 0 </reserved2>
  117.         <reserved1> 0 </reserved1>
  118.         <enabled> <true /> </enabled>
  119.         <rect>
  120.             <left>195</left>
  121.             <top>314</top>
  122.             <right>298</right>
  123.             <bottom>334</bottom>
  124.         </rect>
  125.         <style>roundrect</style>
  126.         <showName> <true /> </showName>
  127.         <highlight> <false /> </highlight>
  128.         <autoHighlight> <false /> </autoHighlight>
  129.         <sharedHighlight> <true /> </sharedHighlight>
  130.         <family>0</family>
  131.         <titleWidth>0</titleWidth>
  132.         <icon>0</icon>
  133.         <textAlign>center</textAlign>
  134.         <font>Chicago</font>
  135.         <textSize>12</textSize>
  136.         <textStyle>plain</textStyle>
  137.         <name>Create Help</name>
  138.         <script>on mouseUp-- requires card HELP-- card Help must have bg field "Help Notes"-- put help messages for desired fields and buttons into Help Notes-- each button or field help message begins with their name and-- ends with the text "End Note"-- after the help creation process-- holding option key and moving mouse over button or field invokes help-- First put accessing script into stack scriptAnswer "This stack or another?" with "This" or "Another"if it is "Another" thenAnswer "Select the Stack for which you wish to create Help"DoMenu "Open Stack..."end iflock screenset lockmessages to trueput the CantModify of this stack into Modifilerset the CantModify of this stack to falseMakeStackScript-- Scripts for buttons and fieldsAnswer "The Default Help Seeking is MousEnter with OptionKey.  If you use the OptionKey somewhere with MouseEnter, you may wish to use another key?"¬¨with "CommandKey" or "Other" or "OptionKey"if it is not "Other" thenput "the" && it && "is down" into InvokeKeyelseAsk "Type exactly the keys you wish depressed on MouseEnter to invoke Help" with "the OptionKey is down"if it is "Cancel" then exit MouseUpelse put it into InvokeKeyend ifput "Fear not!    Help is on the way..."-- WilliamTell-- note: I did it this way so you could simply copy the button.put "on mouseenter" & return into ScriptAddput "if" && InvokeKey && "then"  & return after ScriptAddput "global HesInHere"  & return after ScriptAddput "put the short name of me into HesInHere"   & return after ScriptAddput "GoGetHelp" & Return after ScriptAddput " end if"   & return after ScriptAddput "pass Mouseenter"  & return after ScriptAddput "end MouseEnter"  & return after ScriptAdd-- put help accessing script into visible buttons & fields and-- get the names of these for help notesput empty into ButtonHolderput "----------------" into EmptyLineput Empty into TotalNumberrepeat with x = 1 to the number of backgroundsset cursor to busygo bg xrepeat with y = 1 to the number of bg buttonsset cursor to busyif the visible of bg button y is true thenadd 1 to TotalNumberput the script of bg button y & return & return into ScriptHolderput return & return & ScriptAdd after ScriptHolderset the script of bg button y to ScriptHolderput "Bg Button" & return & the short name of bg button y & return & EmptyLine &¬¨return & EmptyLine & return & "End Note"¬¨& return & return after ButtonHolderend ifend repeatrepeat with z = 1 to the number of bg fieldsset cursor to busyif the visible of bg field z is true thenadd 1 to TotalNumberput the script of bg field z & return & return into ScriptHolderput  return & return & ScriptAdd after ScriptHolderset the script of bg field z to ScriptHolderput "Bg Field" & return & the short name of bg Field z & return  & EmptyLine &¬¨return & EmptyLine & return & "End Note"¬¨& return & return after ButtonHolderend ifend repeatend repeatrepeat with x = 1 to the number of cardsset cursor to busygo card xrepeat with y = 1 to the number of card buttonsset cursor to busyif the visible of card button y is true thenadd 1 to TotalNumberput the script of card button y & return & return into ScriptHolderput  return & return & ScriptAdd after ScriptHolderset the script of card button y to ScriptHolderput "Card Button" & return & the short name of card button y & return  & EmptyLine &¬¨return & EmptyLine & return & "End Note"¬¨& return & return after ButtonHolderend ifend repeatrepeat with z = 1 to the number of card fieldsset cursor to busyif the visible of card field z is true thenadd 1 to TotalNumberput the script of card field z & return & return into ScriptHolderput  return & return & ScriptAdd after ScriptHolderset the script of card field z to ScriptHolderput "Card Field" & return & the short name of card Field z & return  & EmptyLine &¬¨return & EmptyLine & return & "End Note"¬¨& return & return after ButtonHolderend ifend repeatend repeat-- create the help buttongo firstDoMenu "New Button"put the number of card buttons into WhichOneset the name of card button WhichOne to "Help?"set the rect of card button WhichOne to 449,33,501,54put "On MouseUp" && return & "  Answer" && quote &¬¨"For Help - Make sure the" && InvokeKey && "when you move the mouse over the problem button or field"¬¨& quote & return & "End MouseUP" into HelpButtonset the script of card button WhichOne to HelpButton--create the help cardgo lastdoMenu "New Background"set the name of this card to "Help"doMenu "New Field"set the name of bg field 1 to "Help Notes"set the rect of bg field 1 to "11,58,418,326"set the style of bg field 1 to scrollingtype "b" with commandkeyput ButtonHolder into bg field 1choose the browse toolunlock screen with visual shrink to topset the CantModify of this stack to Modifilerif TotalNumber >= 120 thenAnswer "There are over 120 visible fields and buttons in this stack.  You may need to REVISE this system a bit or only provide Help for the more important items."end ifAnswer "All visible buttons and fields in this stack are listed - Add help messages where needed."end mouseUpon MakeStackScript-- this could have been in a field, but then you couldn't copy the buttonput the script of this stack into ScriptHolderput  return & return & "on GoGetHelp" & return after ScriptHolderput "Global HesInHere" & return after ScriptHolderput " if HesInHere is empty then exit GoGetHelp" & return after Scriptholderput "lock screen" & return after Scriptholderput "set lockmessages to true" & return after Scriptholderput " push card"  & return after Scriptholderput "set cursor to watch" & return after ScriptholderPut "put" && quote & "Getting Help, Please wait..." & quote  & return after Scriptholderput "go card" && quote & "Help" & quote  & return after Scriptholderput "find string HesInHere in field" && quote & "Help Notes" & quote  & return after Scriptholderput "if the foundchunk is empty then"  & return after Scriptholderput "pop card"  & return after Scriptholderput "Ask" && quote & "Sorry, no help available for:" & quote &&¬¨"with HesInHere"  & return after Scriptholderput " exit GoGetHelp"  & return after Scriptholderput "end if"  & return after Scriptholderput " put word 2 of the foundline into FirstLine"  & return after Scriptholderput "find string" && quote & "End Note" & quote  & return after Scriptholderput "put word 2 of the foundline into SecondLine" & return after Scriptholderput "put line FirstLine + 1 to SecondLine - 1 of field" && quote &¬¨"Help Notes" & quote && " into HelpNotes"  & return after Scriptholderput " pop card"  & return after Scriptholderput "DoMenu" && quote & "New Field" & quote  & return after ScriptHolderput "put the number of card fields into AddOne" & return after ScriptHolderput "put" && quote & "71,58,436,295" & quote && " into FieldRect"  & return after ScriptHolderput "set the name of card field AddONe to" && quote & "Help" & quote & return after ScriptHolderput "set the rect of card field AddOne to FieldRect" & return after scriptholderput "put" && quote & "On MouseUp" & quote && " & return &" &&¬¨quote & "Choose the field Tool" & quote && "& return &" && quote &¬¨"select me" & quote &&  "& return &" && quote & "DoMenu" & quote &&¬¨"&& quote &" && quote & "Clear Field" & quote &&¬¨"& quote & return &" && quote & "Choose the browse tool" & quote &&¬¨"& return &" && quote & "End MouseUp" & quote && "into FieldScript" & return after ScriptHolderput "set the script of card field AddOne to FieldScript" & return after ScriptHolderput "Set the locktext of card field AddONe to true" & return after ScriptHolderput " Set the widemargins of card field AddOne to true" & return after scriptholderput "set the style of card field AddONe to scrolling" & return after ScriptHolderput "put" && quote & "Help" & quote &&¬¨"& return & return into card field AddOne" & return after ScriptHolderput "put HelpNotes after card Field AddOne" & return after ScriptHolderput "set the scroll of card field AddONe to 0" & return after ScriptHolderput "unlock screen with visual shrink to top"  & return after Scriptholderput "  put empty into HesInHere" & return after ScriptHolderput "Hide msg" & return after ScriptHolderput "choose the Browse Tool" & return after ScriptHolderput "end GoGetHelp"  & return after Scriptholderset the script of this stack to Scriptholderend MakeStackScripton WilliamTellplay "harpsichord" tempo 250 "ee e eq ee e eq ee e eq"play "harpsichord" tempo 250  "db a3 db4 e db e a eq db a3  db4 e db e a"play "harpsichord" tempo 250  "eq db cb dbe d dbq cb a3 c#4 b3 e4e e eq ee e eq ee e eq ee e ew"-- play "harpsichord" tempo 250  "e3e e eq ee e eq ee e aq b c#4q e3e e eq ee e aq c#4e c# b3q ab e "-- play "harpsichord" tempo 250  "e3e e eq ee e eq ee e aq b c#4q  a3e c#4 eh de c# b3 aq db4 a3h"end WilliamTell</script>
  139.     </part>
  140.     <part>
  141.         <id>5</id>
  142.         <type>field</type>
  143.         <visible> <true /> </visible>
  144.         <dontWrap> <false /> </dontWrap>
  145.         <dontSearch> <false /> </dontSearch>
  146.         <sharedText> <false /> </sharedText>
  147.         <fixedLineHeight> <false /> </fixedLineHeight>
  148.         <autoTab> <false /> </autoTab>
  149.         <lockText> <true /> </lockText>
  150.         <rect>
  151.             <left>151</left>
  152.             <top>28</top>
  153.             <right>366</right>
  154.             <bottom>63</bottom>
  155.         </rect>
  156.         <style>rectangle</style>
  157.         <autoSelect> <false /> </autoSelect>
  158.         <showLines> <false /> </showLines>
  159.         <wideMargins> <true /> </wideMargins>
  160.         <multipleLines> <false /> </multipleLines>
  161.         <reservedFamily> 0 </reservedFamily>
  162.         <titleWidth>0</titleWidth>
  163.         <icon>0</icon>
  164.         <textAlign>center</textAlign>
  165.         <font>Geneva</font>
  166.         <textSize>18</textSize>
  167.         <textStyle>bold</textStyle>
  168.         <textHeight>24</textHeight>
  169.         <name></name>
  170.         <script></script>
  171.     </part>
  172.     <part>
  173.         <id>6</id>
  174.         <type>button</type>
  175.         <visible> <true /> </visible>
  176.         <reserved5> 0 </reserved5>
  177.         <reserved4> 0 </reserved4>
  178.         <reserved3> 0 </reserved3>
  179.         <reserved2> 0 </reserved2>
  180.         <reserved1> 0 </reserved1>
  181.         <enabled> <true /> </enabled>
  182.         <rect>
  183.             <left>427</left>
  184.             <top>317</top>
  185.             <right>469</right>
  186.             <bottom>333</bottom>
  187.         </rect>
  188.         <style>roundrect</style>
  189.         <showName> <true /> </showName>
  190.         <highlight> <false /> </highlight>
  191.         <autoHighlight> <false /> </autoHighlight>
  192.         <sharedHighlight> <true /> </sharedHighlight>
  193.         <family>0</family>
  194.         <titleWidth>0</titleWidth>
  195.         <icon>0</icon>
  196.         <textAlign>center</textAlign>
  197.         <font>Chicago</font>
  198.         <textSize>12</textSize>
  199.         <textStyle>plain</textStyle>
  200.         <name>Quit</name>
  201.         <script>on mouseUpvisual effect iris open slowlygo lastend mouseUp</script>
  202.     </part>
  203.     <content>
  204.         <layer>card</layer>
  205.         <id>1</id>
  206.         <text><span class="style4">ote - the default procedure for invoking help is to move the mouse over a field or button with the OptionKey down.  If this would cause a problem in your stack, the "Create Help" button below allows you to change this key sequence before it begins to build your help scripts.This process adds between 2 - 8 K to your stack depending on its size (aside from the help messages you write) -  The "</span><span class="style9">Create Help</span><span class="style4">" button below:</span><span class="style8">1</span><span class="style4"> - creates a "</span><span class="style9">Help?</span><span class="style4">" button on the first card telling users how to access the help you develop</span><span class="style8">2</span><span class="style4"> - creates a card HELP (last card) having a field "Help Notes" in which you enter your help messages</span><span class="style8">3</span><span class="style4"> - Makes a list of all visible fields and buttons in the stack and enters them into the "Help Notes" field for you to edit and add help messages as you please - if you wish no help to be available for a button or field, then simply delete its lines (including the line End Note following its name) from the Help Notes field.</span><span class="style8">4</span><span class="style4"> - To write a Help message - simply type it into the lines (no size limit) following the field or button name to which it relates (replace the ------------ lines)</span><span class="style8">5</span><span class="style4"> - </span><span class="style5"><a href="#" class="group">Adds the script required to invoke help (click on me see it) to each visible field or button</a></span><span class="style4"></span><span class="style8">6</span><span class="style5"><a href="#" class="group"> - Adds the stackscript necessary to invoke help to your stack (click here to see it) - This script automatically creates </a></span><span class="style4">a Help Field on the card where it is called.  Clicking on the field deletes it.</span></text>
  207.     </content>
  208.     <content>
  209.         <layer>card</layer>
  210.         <id>2</id>
  211.         <text>--Within a visible button or fieldon mouseenter  if the OptionKey is down then    global HesInHere    put the short name of me into HesInHere    GoGetHelp  end if  pass Mouseenterend MouseEnter</text>
  212.     </content>
  213.     <content>
  214.         <layer>card</layer>
  215.         <id>3</id>
  216.         <text>on GoGetHelp  Global HesInHere  if HesInHere is empty then exit GoGetHelp  lock screen  set lockmessages to true  push card  set cursor to watch  put "Getting Help, Please wait..."  go card "Help"  find string HesInHere in field "Help Notes"  if the foundchunk is empty then    pop card    Ask "Sorry, no help available for:" with HesInHere    exit GoGetHelp  end if  put word 2 of the foundline into FirstLine  find string "End Note"  put word 2 of the foundline into SecondLine  put line FirstLine to SecondLine of field "Help Notes"  into HelpNotes  pop card  DoMenu "New Field"  put the number of card fields into AddOne  put "71,58,436,295"  into FieldRect  set the name of card field AddONe to "Help"  set the rect of card field AddOne to FieldRect  put "On MouseUp"  & return & "Choose the field Tool" & return & "select me" & return & "DoMenu" && quote & "Clear Field" & quote & return & "Choose the browse tool" & return & "End MouseUp" into FieldScript  set the script of card field AddOne to FieldScript  Set the locktext of card field AddONe to true  Set the widemargins of card field AddOne to true  set the style of card field AddONe to scrolling  put "Help" & return & return into card field AddOne  put HelpNotes after card Field AddOne  set the scroll of card field AddONe to 0  unlock screen with visual shrink to top  put empty into HesInHere  Hide msg  choose the Browse Toolend GoGetHelp</text>
  217.     </content>
  218.     <content>
  219.         <layer>card</layer>
  220.         <id>5</id>
  221.         <text>Ted's‚Ñ¢ HelpCreator</text>
  222.     </content>
  223.     <name></name>
  224.     <script>on OpenCardset the scroll of card field 1 to 0end OpenCard</script>
  225. </card>
  226.  
  227.  
  228. card_7007.xml
  229. <?xml version="1.0" encoding="utf-8" ?>
  230. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  231. <card>
  232.     <id>7007</id>
  233.     <filler1>0</filler1>
  234.     <cantDelete> <true /> </cantDelete>
  235.     <showPict> <true /> </showPict>
  236.     <dontSearch> <false /> </dontSearch>
  237.     <owner>7393</owner>
  238.     <link rel="stylesheet" type="text/css" href="stylesheet_3185.css" />
  239.     <part>
  240.         <id>1</id>
  241.         <type>field</type>
  242.         <visible> <true /> </visible>
  243.         <dontWrap> <false /> </dontWrap>
  244.         <dontSearch> <false /> </dontSearch>
  245.         <sharedText> <false /> </sharedText>
  246.         <fixedLineHeight> <false /> </fixedLineHeight>
  247.         <autoTab> <false /> </autoTab>
  248.         <lockText> <true /> </lockText>
  249.         <rect>
  250.             <left>0</left>
  251.             <top>1</top>
  252.             <right>512</right>
  253.             <bottom>342</bottom>
  254.         </rect>
  255.         <style>transparent</style>
  256.         <autoSelect> <false /> </autoSelect>
  257.         <showLines> <false /> </showLines>
  258.         <wideMargins> <false /> </wideMargins>
  259.         <multipleLines> <false /> </multipleLines>
  260.         <reservedFamily> 0 </reservedFamily>
  261.         <titleWidth>0</titleWidth>
  262.         <icon>0</icon>
  263.         <textAlign>left</textAlign>
  264.         <font>Geneva</font>
  265.         <textSize>12</textSize>
  266.         <textStyle>plain</textStyle>
  267.         <textHeight>16</textHeight>
  268.         <name></name>
  269.         <script>On MouseUpvisual wipe rightgo backend Mouseup</script>
  270.     </part>
  271.     <part>
  272.         <id>6</id>
  273.         <type>button</type>
  274.         <visible> <true /> </visible>
  275.         <reserved5> 0 </reserved5>
  276.         <reserved4> 0 </reserved4>
  277.         <reserved3> 0 </reserved3>
  278.         <reserved2> 0 </reserved2>
  279.         <reserved1> 0 </reserved1>
  280.         <enabled> <true /> </enabled>
  281.         <rect>
  282.             <left>431</left>
  283.             <top>305</top>
  284.             <right>458</right>
  285.             <bottom>329</bottom>
  286.         </rect>
  287.         <style>transparent</style>
  288.         <showName> <false /> </showName>
  289.         <highlight> <false /> </highlight>
  290.         <autoHighlight> <false /> </autoHighlight>
  291.         <sharedHighlight> <true /> </sharedHighlight>
  292.         <family>0</family>
  293.         <titleWidth>0</titleWidth>
  294.         <icon>1014</icon>
  295.         <textAlign>center</textAlign>
  296.         <font>Chicago</font>
  297.         <textSize>12</textSize>
  298.         <textStyle>plain</textStyle>
  299.         <name>New Button</name>
  300.         <script>on mouseUpvisual wipe rightgo prevend mouseUp</script>
  301.     </part>
  302.     <part>
  303.         <id>8</id>
  304.         <type>button</type>
  305.         <visible> <true /> </visible>
  306.         <reserved5> 0 </reserved5>
  307.         <reserved4> 0 </reserved4>
  308.         <reserved3> 0 </reserved3>
  309.         <reserved2> 0 </reserved2>
  310.         <reserved1> 0 </reserved1>
  311.         <enabled> <true /> </enabled>
  312.         <rect>
  313.             <left>204</left>
  314.             <top>304</top>
  315.             <right>254</right>
  316.             <bottom>323</bottom>
  317.         </rect>
  318.         <style>roundrect</style>
  319.         <showName> <true /> </showName>
  320.         <highlight> <false /> </highlight>
  321.         <autoHighlight> <true /> </autoHighlight>
  322.         <sharedHighlight> <true /> </sharedHighlight>
  323.         <family>0</family>
  324.         <titleWidth>0</titleWidth>
  325.         <icon>0</icon>
  326.         <textAlign>center</textAlign>
  327.         <font>Chicago</font>
  328.         <textSize>12</textSize>
  329.         <textStyle>plain</textStyle>
  330.         <name>Quit</name>
  331.         <script>on mouseDowndomenu "Quit Hypercard"end mouseDown</script>
  332.     </part>
  333.     <name>ShareWare</name>
  334.     <script>on OpenCardglobal SeenTedsBlurbput 1 into SeenTedsBlurbend Opencard</script>
  335. </card>
  336.  
  337.  
  338.